home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 223 / 223.d81 / anagram 94 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  185 lines
  1. 1 poke55,0:poke56,128:clr
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 5 poke53272,29
  4. 6 dim m$(9),r$(4):f=0:ff=0:s=54272:gosub9900
  5. 7 sp$="          "
  6. 10 fori=1to5:readm$(i):next
  7. 11 data "[208]rint [208]uzzles         "
  8. 13 data "[208]rint [211]olutions       "
  9. 15 data "[210]ead [201]t               "
  10. 16 data "[195]redits               "
  11. 17 data "[204]oadstar              "
  12. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  13. 22 md$="[221][155]                                      [146][221]"
  14. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  15. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  16. 25 goto30
  17. 26 print"[147]"tp$;
  18. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  19. 28 fori=217to242:pokei,peek(i)or128:next:return
  20. 30 gosub26
  21. 32 print"[221][156]           [193]nagram [195]ouples            [146][221]";
  22. 34 println$;
  23. 60 poke214,21:print
  24. 65 println$;
  25. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  26. 80 gosub28
  27. 100 print"";
  28. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  29. 104 qq$="[221]                        [221]"
  30. 105 fori=1to7:print""qq$:next
  31. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  32. 107 poke214,5:print
  33. 109 fori=1to6:printtab(9)""m$(i):next
  34. 145 sys52496,6
  35. 146 poke198,0
  36. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  37. 155 getk$:ifk$=""then155
  38. 160 ifk$=chr$(13)thengosub9930:goto200
  39. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=5:r=9
  40. 170 ifk$=""thenm=m+1:r=r+1:ifm>5thenm=1:r=5
  41. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
  42. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  43. 182 m1=m:r1=r
  44. 185 goto155
  45. 190 :
  46. 200 onmgoto1000,2000,12000,500,11000
  47. 205 goto150
  48. 500 sys52496,7
  49. 525 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  50. 527 printtab(7)"[221]  [208]uzzle [194]y [197]d [198]ournier [221]"
  51. 535 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  52. 544 t=1
  53. 545 getk$:ifk$<>""then550
  54. 546 t=t+1:ift<100then545
  55. 550 sys52499,7:gosub28:goto155
  56. 555 :
  57. 1000 gosub9000:ifppthen155
  58. 1005 gosub6000
  59. 1007 open4,4
  60. 1010 print#4,sp$;"puzzle #1"
  61. 1015 print#4
  62. 1020 print#4,sp$;"she + fit = - - - - - -":print#4
  63. 1025 print#4,sp$;"fry + ail = - - - - - -":print#4
  64. 1030 print#4,sp$;"let + lit = - - - - - -":print#4
  65. 1035 print#4,sp$;"and + age = - - - - - -":print#4
  66. 1036 print#4,sp$;"cat + tin = - - - - - -"
  67. 1040 print#4:print#4
  68. 1045 print#4,sp$;"puzzle #2"
  69. 1050 print#4
  70. 1055 print#4,sp$;"fuel + sage = - - - - - - - -":print#4
  71. 1060 print#4,sp$;"love + rate = - - - - - - - -":print#4
  72. 1065 print#4,sp$;"rice + pact = - - - - - - - -":print#4
  73. 1070 print#4,sp$;"alas + nose = - - - - - - - -":print#4
  74. 1071 print#4,sp$;"suet + rare = - - - - - - - -"
  75. 1075 print#4:print#4
  76. 1076 print#4,sp$;"puzzle #3"
  77. 1077 print#4
  78. 1078 print#4,sp$;"drone + mutes = - - - - - - - - - -":print#4
  79. 1079 print#4,sp$;"inept + alarm = - - - - - - - - - -":print#4
  80. 1080 print#4,sp$;"stile + pence = - - - - - - - - - -":print#4
  81. 1081 print#4,sp$;"nears + quiet = - - - - - - - - - -":print#4
  82. 1085 print#4,sp$;"snore + cider = - - - - - - - - - -"
  83. 1089 print#4:print#4
  84. 1100 print#4,sp$;"puzzle #4"
  85. 1105 print#4
  86. 1110 print#4,sp$;"latest + shines = - - - - - - - - - - - -":print#4
  87. 1115 print#4,sp$;"suitor + spinet = - - - - - - - - - - - -":print#4
  88. 1120 print#4,sp$;"porous + pester = - - - - - - - - - - - -":print#4
  89. 1125 print#4,sp$;"tamper + edited = - - - - - - - - - - - -":print#4
  90. 1130 print#4,sp$;"pruner + entree = - - - - - - - - - - - -"
  91. 1500 print#4:close4:goto155
  92. 1505 :
  93. 2000 gosub9000:ifppthen155
  94. 2005 gosub6000
  95. 2007 open4,4
  96. 2010 print#4,sp$;"puzzle #1"
  97. 2015 print#4
  98. 2020 print#4,sp$;"she + fit = fetish"
  99. 2025 print#4,sp$;"fry + ail = fairly"
  100. 2030 print#4,sp$;"let + lit = little"
  101. 2035 print#4,sp$;"and + age = agenda"
  102. 2036 print#4,sp$;"cat + tin = intact"
  103. 2040 print#4:print#4
  104. 2045 print#4,sp$;"puzzle #2"
  105. 2050 print#4
  106. 2055 print#4,sp$;"fuel + sage = fuselage"
  107. 2060 print#4,sp$;"love + rate = elevator"
  108. 2065 print#4,sp$;"rice + pact = practice"
  109. 2070 print#4,sp$;"alas + nose = seasonal"
  110. 2071 print#4,sp$;"suet + rare = treasure"
  111. 2075 print#4:print#4
  112. 2076 print#4,sp$;"puzzle #3"
  113. 2077 print#4
  114. 2078 print#4,sp$;"drone + mutes = tremendous"
  115. 2079 print#4,sp$;"inept + alarm = parliament"
  116. 2080 print#4,sp$;"stile + pence = pestilence"
  117. 2081 print#4,sp$;"nears + quiet = equestrian"
  118. 2085 print#4,sp$;"snore + cider = reconsider"
  119. 2089 print#4:print#4
  120. 2100 print#4,sp$;"puzzle #4"
  121. 2105 print#4
  122. 2110 print#4,sp$;"latest + shines = stealthiness"
  123. 2115 print#4,sp$;"suitor + spinet = superstition"
  124. 2120 print#4,sp$;"porous + pester = preposterous"
  125. 2125 print#4,sp$;"tamper + edited = premeditated"
  126. 2130 print#4,sp$;"pruner + entree = entrepreneur"
  127. 2500 print#4:close4:goto155
  128. 2505 :
  129. 6000 open4,4
  130. 6005 print#4, "          #94 - anagram couples"
  131. 6006 print#4
  132. 6010 print#4:close4:return
  133. 9000 sys52496,7:pp=1
  134. 9005 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  135. 9010 printtab(7)"[221]  [208]rinter [210]eady? [y/n]  [221]"
  136. 9025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  137. 9035 getk$:ifk$=""then9035
  138. 9036 ifk$="y"thenpp=0
  139. 9040 sys52499,7:gosub28:return
  140. 9045 :
  141. 9800 poke214,21:print:println$;
  142. 9805 print"[221][154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  143. 9810 getk$:ifk$<>chr$(13)then9810
  144. 9815 return
  145. 9820 :
  146. 9900 fori=0to24:pokes+i,.:next:return
  147. 9910 pokes+24,15:pokes+5,9:pokes+6,0
  148. 9915 pokes+1,19:pokes,63:pokes+4,17
  149. 9920 fort=1to50:next:pokes+4,16:return
  150. 9930 pokes+24,15:pokes+5,9:pokes+6,0
  151. 9935 pokes+1,48:pokes,0:pokes+4,17
  152. 9940 fort=1to50:next:pokes+4,16:return
  153. 10000 d=peek(186):n$="anagram 94":open1,d,15,"i0":close1
  154. 10001 open1,d,15,"s0:"+n$:close1:saven$,d:end
  155. 11000 poke214,15:print
  156. 11005 printtab(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  157. 11015 printtab(7)"[221]  [193]re you sure?  [y/n]  [221]"
  158. 11025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  159. 11030 getk$:ifk$=""then11030
  160. 11035 ifk$<>"y"thensys52499,6:goto150
  161. 11037 print"[147]":poke53272,23
  162. 11040 goto40000
  163. 12000 sys52496,7
  164. 12001 gosub26
  165. 12005 print"[221][156]           [193]nagram [195]ouples            [146][221]";
  166. 12010 println$;
  167. 12015 print"[155]    [211]imply combine the letters of
  168. 12020 [153]"list the two shown words to form a
  169. 12025 print"[155] longer word.  [198]or example,
  170. 12030 [153]"list      str$val(NULL)(NULL) + (NULL)valatn(NULL) = (NULL)atn(NULL)val(NULL)(NULL)valstr$.
  171. 12065 print"[155] [217]ou will form 6, 8, 10 and 12
  172. 12070 [153]"list letter words.
  173. 12100 gosub9800
  174. 12105 sys52499,7:gosub28:goto155
  175. 40000 fori=0to21:poke828+i,8+i:next
  176. 40010 ifdv<8ordv>29ordv=8then40030
  177. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  178. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  179. 40040 close2:open2,i,2:close2:ifstthen40060
  180. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  181. 40060 next:print"[147]":poke53272,23:poke186,8:end
  182. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  183. 40080